home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1990 / Sep 90 / MacApp.Tech$ 9⁄7⁄90 / 1890-More MacApp 2.0 "fea-Sep90 < prev    next >
Encoding:
Text File  |  1991-03-06  |  1.6 KB  |  76 lines  |  [TEXT/GEOL]
  1. Item    4764502                         2-Sept-90        04:59PDT
  2.  
  3. From:   D2022                           Strata, Gary Bringhurst,PRT
  4.  
  5. To:     MACAPP.TECH$                    MacApp Technical
  6.  
  7. cc:     MACAPP.TEST                     MacApp SQA Team
  8.         MACDTS                          Macintosh Developer Tech Supt
  9.  
  10. Sub:    More MacApp 2.0 "features"
  11.  
  12. Some more items of interest in MacApp 2.0 + p2.
  13.  
  14. By the way, many thanks for the timely release of these bug fixes to the MacApp
  15. team.
  16.  
  17. Gary L. Bringhurst
  18. Strata Inc.
  19. D2022
  20.  
  21.  
  22. ****
  23. In TPopup.DrawPopupBox:
  24.  
  25.    IF SectRect(area, menuRect, colorRect) & (theItem <> '') THEN   {   Fix from TN
  26. TPopup Bug #1 }
  27.    BEGIN
  28.    IF (theItem <> '') THEN
  29.    BEGIN
  30.    ...
  31.    END
  32.    ...
  33.    END
  34.  
  35. should be:
  36.  
  37.    IF SectRect(area, menuRect, colorRect) THEN {   Fix from TN TPopup Bug #1 }
  38.    BEGIN
  39.    IF (theItem <> '') THEN
  40.    BEGIN
  41.    ...
  42.    END
  43.    ...
  44.    END
  45.  
  46.  
  47. ****
  48. In DisposeIfHandle there is a redundent test for IsHandlePurged.
  49.  
  50.  
  51. ****
  52. In TObject.GetDynamicSize it should not be assumed that the object is a Mac
  53. handle so that subclasses might use other allocation schemes.
  54.  
  55.    GetDynamicSize := GetHandleSize(Handle(self)) - GetClassSize;
  56.  
  57. should be:
  58.  
  59.    GetDynamicSize := GetInstanceSize - GetClassSize;
  60.  
  61.  
  62. ****
  63. Same story in TObject.GetDynamicPtr:
  64.  
  65.    if (GetInstanceSize - classSize) > 0 THEN
  66.  
  67. should be:
  68.  
  69.    if (GetHandleSize(Handle(self)) - classSize) > 0 THEN
  70.  
  71.  
  72. I'll admit the "bugs" in TObject won't affect many people, but for consistency,
  73. and to help me avoid having to change the MacApp sources every time I get them,
  74. the changes should be made.
  75.  
  76.